getwd()
setwd("D:/RClass")
load ("diabets.RData")
j=0
for (i in  1:nrow(diabets)){
  a <- as.vector(diabets[i,])
if (a[1,2] >3.9 & a[1,2] <6.1 & a[1,1]=="Female")
  j=j+1}
print(j)
